home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1982-03-26 | 512 b | 20 lines |
- 1000 '
- 1010 ' STRINGS -- Patrick Leabo
- 1020 '
- 1025 POKE 106,0
- 1030 DEFINT M:COMMON MENU
- 1035 SCREEN 1
- 2005 CLS
- 2007 COLOR 1,0
- 2010 X0=X0 + 1.06:Y1=Y1+1.98
- 2020 Y0=Y0-2:X1=X1-1.43
- 2030 IF Y0<3 THEN Y0=Y0+180
- 2040 IF X1<3 THEN X1 = X1 + 300
- 2050 IF X0>300 THEN X0=X0-300
- 2060 IF Y1>180 THEN Y1=Y1-180
- 2070 C=INT(RND*3+1)
- 2080 LINE (X0,Y0)-(X1,Y1),C:K=K+1
- 2085 IF INKEY$<>"" THEN COLOR 0,7:SCREEN 0:CHAIN "MENU.BAS",1000
- 2090 IF K<185 THEN 2010
- 2100 K=0:FOR N=1 TO 2000:NEXT:CLS:GOTO 2005
-